The Big Mac Index
1 Tidy Tuesday
1.1 Looking at the data with Lares
tibble [1,386 × 19] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
$ date : Date[1:1386], format: "2000-04-01" "2000-04-01" ...
$ iso_a3 : chr [1:1386] "ARG" "AUS" "BRA" "CAN" ...
$ currency_code: chr [1:1386] "ARS" "AUD" "BRL" "CAD" ...
$ name : chr [1:1386] "Argentina" "Australia" "Brazil" "Canada" ...
$ local_price : num [1:1386] 2.5 2.59 2.95 2.85 5.9 ...
$ dollar_ex : num [1:1386] 1 1.68 1.79 1.47 1.7 ...
$ dollar_price : num [1:1386] 2.5 1.54 1.65 1.94 3.47 ...
$ usd_raw : num [1:1386] -0.00398 -0.38579 -0.34341 -0.22758 0.3827 ...
$ eur_raw : num [1:1386] 0.0501 -0.3525 -0.3078 -0.1857 0.4577 ...
$ gbp_raw : num [1:1386] -0.167 -0.486 -0.451 -0.354 0.156 ...
$ jpy_raw : num [1:1386] -0.0986 -0.4442 -0.4058 -0.301 0.2513 ...
$ cny_raw : num [1:1386] 1.091 0.289 0.378 0.622 1.903 ...
$ gdp_dollar : num [1:1386] NA NA NA NA NA NA NA NA NA NA ...
$ adj_price : num [1:1386] NA NA NA NA NA NA NA NA NA NA ...
$ usd_adjusted : num [1:1386] NA NA NA NA NA NA NA NA NA NA ...
$ eur_adjusted : num [1:1386] NA NA NA NA NA NA NA NA NA NA ...
$ gbp_adjusted : num [1:1386] NA NA NA NA NA NA NA NA NA NA ...
$ jpy_adjusted : num [1:1386] NA NA NA NA NA NA NA NA NA NA ...
$ cny_adjusted : num [1:1386] NA NA NA NA NA NA NA NA NA NA ...
- attr(*, "spec")=
.. cols(
.. date = col_date(format = ""),
.. iso_a3 = col_character(),
.. currency_code = col_character(),
.. name = col_character(),
.. local_price = col_double(),
.. dollar_ex = col_double(),
.. dollar_price = col_double(),
.. usd_raw = col_double(),
.. eur_raw = col_double(),
.. gbp_raw = col_double(),
.. jpy_raw = col_double(),
.. cny_raw = col_double(),
.. gdp_dollar = col_double(),
.. adj_price = col_double(),
.. usd_adjusted = col_double(),
.. eur_adjusted = col_double(),
.. gbp_adjusted = col_double(),
.. jpy_adjusted = col_double(),
.. cny_adjusted = col_double()
.. )
1.2 Plotting the data myself
Looks like Turkey messed up so I filter it out in the next plot, Vietnam and Indonesia have similarly ridiculous numbers so I also filter those in the next plot, after that I decided the best way to do this was grouping the plots since there is no level at which all will be plotted reasonably.
A work by Duncan Gates
gatesdu@oregonstate.edu